home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestBitMaps2 < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.0 KB  |  52 lines
  1. scr <- Screen new: 16r40D20001
  2. scr          open: 'Testing Screen'
  3.  
  4. win <- Window new: 'TestBitMaps Window'
  5.  
  6. win setFlags:       16r1100F
  7. win setIDCMPFlags:  16r240     "IDCMP_CLOSEWINDOW + IDCMP_GADGETUP"
  8. win openOnScreen:   scr
  9.  
  10. itxt <- IText new: 'Press Close Gadget when you are done!'  
  11.  
  12. itxt setPens:        6 @ 1
  13. itxt setITextOrigin: 0 @ 0
  14. itxt setDrawMode:    0       "JAM1 = 0"
  15. itxt registerTo:     win
  16. itxt setDrawMode:    0
  17.  
  18. win  printIText:  itxt at: 10 @ 30
  19.  
  20. bmap <- BitMap new
  21.  
  22. bmap grabScreenPiece: 'T:screenGrab' x: 0 y: 0 w: 100 h: 50
  23.  
  24. bmap setBitMapWidth: 200
  25. bmap setBitMapHeight: 90
  26. bmap setBitMapDepth:   8
  27. bmap setBitMapFlags:  14 
  28. bmap makeBitMap
  29.  
  30. bmap readBitMapFile:  'T:screenGrab'
  31.  
  32. bmap changeBitMapDepth: 4 "chop off 4 planes!"
  33.  
  34. bmap writeBitMapFile: 'T:writeBMapCheck'
  35.  
  36. chkscr <- Screen new: 16r40D20001
  37.  
  38. chkscr setBitMap: bmap
  39.  
  40. chkscr open: 'Hacked-up BitMap screen!'
  41.  
  42. rval <- win handleIntuition     "Wait for the Close Gadget"
  43.  
  44. chkscr close
  45.  
  46. bmap   remove
  47.  
  48. itxt dispose
  49.  
  50. win  close
  51. scr  close
  52.